# ==============================================================================
# descriptives.R
# author: Bernhard Clemm
# ==============================================================================

dir <- dirname(dirname(rstudioapi::getSourceEditorContext()$path))
source(paste0(dir, "/code/setup-packages.R"))

# STATE ELECTION RESULTS =======================================================

library(rvest)
url <- "https://de.wikipedia.org/wiki/Alternative_f%C3%BCr_Deutschland#Wahlergebnisse"
vote_shares_ltw <- url %>%
  read_html() %>%
  html_nodes("table") %>%
  .[[10]] %>%
  html_table() %>%
  as.data.frame()
names(vote_shares_ltw) <- vote_shares_ltw[1, ]
vote_shares_ltw <- vote_shares_ltw %>%
  mutate(Jahr = as.numeric(Jahr)) %>%
  filter(!is.na(Jahr)) %>%
  select(-Jahr) %>%
  mutate(across(everything(), ~ gsub(",", ".", .))) %>%
  mutate(across(everything(), ~ gsub(",", ".", .))) %>%
  mutate(across(everything(), ~ as.numeric(.)))

vote_shares_ltw_v <- vote_shares_ltw %>%
  as.matrix() %>%
  c(.)
vote_shares_ltw_v <- vote_shares_ltw_v[!is.na(vote_shares_ltw_v)]
mean(vote_shares_ltw_v, na.rm = T)
